home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00254_Open Object.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  783 b   |  30 lines
  1. global gVRSprite1, gVRSprite2, gNavMovieID, gPanoMovieID, gPanoMovieObj, gVR.ObjectFilename
  2.  
  3. on mouseUp
  4.   ClosePanoMovie()
  5.   if the machineType = 256 then
  6.     ClosePanoMovie()
  7.   end if
  8.   set the ink of sprite gVRSprite1 to 0
  9.   set the ink of sprite gVRSprite2 to 0
  10.   updateStage()
  11.   set the ink of sprite gVRSprite1 to 1
  12.   set the ink of sprite gVRSprite2 to 1
  13.   updateStage()
  14.   OpenNavMovie(gVR.ObjectFilename, gVRSprite2, 1)
  15.   if the machineType = 256 then
  16.     if objectp(gNavMovieObj) then
  17.       go("Object")
  18.       exit
  19.     end if
  20.   else
  21.     if gNavMovieID <> EMPTY then
  22.       go("Object")
  23.       exit
  24.     end if
  25.   end if
  26.   go("Start")
  27.   updateStage()
  28.   alert("Can't open file:" & RETURN & RETURN & QUOTE & gVR.ObjectFilename & QUOTE & RETURN & RETURN & "as an object movie.")
  29. end
  30.